home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / demo / xprint.sit / XPrint Demo / background_2607.txt < prev    next >
Encoding:
Text File  |  1989-03-22  |  4.2 KB  |  209 lines
  1. -- background: 2607 from stack: in
  2. -- bmap block id: 3292
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2007
  11. -- rect: left=77 top=55 right=217 bottom=423
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: text
  20. ----- HyperTalk script -----
  21. on closeField
  22.   global TEdit
  23.   put true into TEdit
  24. end closeField
  25.  
  26.  
  27. -- part 2 (button)
  28. -- low flags: 00
  29. -- high flags: A001
  30. -- rect: left=6 top=57 right=75 bottom=74
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 3
  35. -- text size: 10
  36. -- style flags: 0
  37. -- line height: 13
  38. -- part name: plain
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   repeat with N = 2 to 8
  42.     set hilite of bg btn N to false
  43.   end repeat
  44.   if hilite of cd btn "envelope" then
  45.     set textStyle of cd fld "from" to plain
  46.     set textStyle of cd fld "to" to plain
  47.   else if hilite of cd btn "ltr" then
  48.     set textStyle of bg fld "text" to plain
  49.   else set textStyle of bg fld "Letterhead" to plain
  50.   if visible of cd fld "fonts" then send whichFont to cd btn "fonts"
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 3 (button)
  56. -- low flags: 00
  57. -- high flags: 8001
  58. -- rect: left=6 top=74 right=92 bottom=74
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 3
  63. -- text size: 10
  64. -- style flags: 256
  65. -- line height: 13
  66. -- part name: Bold
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   changedStyle
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 4 (button)
  75. -- low flags: 00
  76. -- high flags: 8001
  77. -- rect: left=6 top=90 right=108 bottom=74
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 3
  82. -- text size: 10
  83. -- style flags: 512
  84. -- line height: 13
  85. -- part name: Italic
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   changedStyle
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 5 (button)
  94. -- low flags: 00
  95. -- high flags: 8001
  96. -- rect: left=6 top=107 right=125 bottom=74
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 3
  101. -- text size: 10
  102. -- style flags: 1024
  103. -- line height: 13
  104. -- part name: Underline
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   changedStyle
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 6 (button)
  113. -- low flags: 00
  114. -- high flags: 8001
  115. -- rect: left=6 top=124 right=142 bottom=74
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 3
  120. -- text size: 10
  121. -- style flags: 2048
  122. -- line height: 13
  123. -- part name: Outline
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   changedStyle
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 7 (button)
  132. -- low flags: 00
  133. -- high flags: 8001
  134. -- rect: left=6 top=141 right=159 bottom=74
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 3
  139. -- text size: 10
  140. -- style flags: 4096
  141. -- line height: 13
  142. -- part name: Shadow
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   changedStyle
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 8 (button)
  151. -- low flags: 00
  152. -- high flags: 8001
  153. -- rect: left=6 top=158 right=176 bottom=74
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 3
  158. -- text size: 10
  159. -- style flags: 8192
  160. -- line height: 13
  161. -- part name: Condense
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   changedStyle
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 9 (button)
  170. -- low flags: 00
  171. -- high flags: 8001
  172. -- rect: left=6 top=175 right=193 bottom=74
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 1
  176. -- font id: 3
  177. -- text size: 10
  178. -- style flags: 16384
  179. -- line height: 13
  180. -- part name: Extend
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   changedStyle
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 10 (field)
  189. -- low flags: 01
  190. -- high flags: 0002
  191. -- rect: left=77 top=25 right=52 bottom=423
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 21
  196. -- text size: 18
  197. -- style flags: 14592
  198. -- line height: 24
  199. -- part name: Letterhead
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   if visible of cd fld "myaddress" then
  203.     hide cd fld "myaddress"
  204.     put line 1 of cd fld "myaddress" into me
  205.   else if not hilite of cd btn "Envelope" then
  206.     show cd fld "myaddress"
  207.   else beep
  208. end mouseUp
  209.